home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / HYP / C-D / DiskManager2.cpt / DiskManager 2.0 / background_7696.txt < prev    next >
Text File  |  1989-02-26  |  9KB  |  418 lines
  1. -- background: 7696 from stack: in.0
  2. -- bmap block id: 7209
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on idle
  8.  
  9. end idle
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16. -- part 13 (field)
  17. -- low flags: 00
  18. -- high flags: 2000
  19. -- rect: left=13 top=99 right=121 bottom=196
  20. -- title width / last selected line: 0
  21. -- icon id / first selected line: 0 / 0
  22. -- text alignment: 1
  23. -- font id: 0
  24. -- text size: 12
  25. -- style flags: 0
  26. -- line height: 16
  27. -- part name: 
  28. ----- HyperTalk script -----
  29. put field name1 into field spine1
  30.  
  31.  
  32.  
  33. -- part 5 (field)
  34. -- low flags: 00
  35. -- high flags: 2000
  36. -- rect: left=9 top=120 right=256 bottom=202
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 0 / 0
  39. -- text alignment: 0
  40. -- font id: 3
  41. -- text size: 9
  42. -- style flags: 0
  43. -- line height: 12
  44. -- part name: RC1
  45.  
  46.  
  47. -- part 14 (field)
  48. -- low flags: 00
  49. -- high flags: 2000
  50. -- rect: left=234 top=100 right=121 bottom=411
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 1
  54. -- font id: 0
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: 
  59.  
  60.  
  61. -- part 9 (field)
  62. -- low flags: 00
  63. -- high flags: 2000
  64. -- rect: left=228 top=119 right=255 bottom=420
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 1
  68. -- font id: 3
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: RC2
  73.  
  74.  
  75. -- part 38 (button)
  76. -- low flags: 00
  77. -- high flags: 8002
  78. -- rect: left=60 top=260 right=277 bottom=77
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 1
  82. -- font id: 0
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: 1
  87. ----- HyperTalk script -----
  88. on mouseUp
  89.   beep
  90.   set textAlign of field "RC1" to left
  91.   set textFont of field "RC1" to Geneva
  92.   set textSize of field "RC1" to 9
  93. end mouseUp
  94.  
  95.  
  96.  
  97. -- part 39 (button)
  98. -- low flags: 00
  99. -- high flags: 8002
  100. -- rect: left=85 top=260 right=277 bottom=101
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 1
  104. -- font id: 0
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: 2
  109. ----- HyperTalk script -----
  110. on mouseUp
  111.   beep
  112.   set textAlign of field "RC2" to left
  113.   set textFont of field "RC2" to Geneva
  114.   set textSize of field "RC2" to 9
  115. end mouseUp
  116.  
  117.  
  118.  
  119. -- part 40 (button)
  120. -- low flags: 00
  121. -- high flags: 8002
  122. -- rect: left=153 top=260 right=277 bottom=170
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 0 / 0
  125. -- text alignment: 1
  126. -- font id: 0
  127. -- text size: 12
  128. -- style flags: 0
  129. -- line height: 16
  130. -- part name: 1
  131. ----- HyperTalk script -----
  132. on mouseUp
  133.   beep
  134.   set textAlign of field "RC1" to left
  135.   set textFont of field "RC1" to Geneva
  136.   set textSize of field "RC1" to 12
  137. end mouseUp
  138.  
  139.  
  140.  
  141. -- part 41 (button)
  142. -- low flags: 00
  143. -- high flags: 8002
  144. -- rect: left=178 top=260 right=277 bottom=194
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 1
  148. -- font id: 0
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: 2
  153. ----- HyperTalk script -----
  154. on mouseUp
  155.   beep
  156.   set textAlign of field "RC2" to left
  157.   set textFont of field "RC2" to Geneva
  158.   set textSize of field "RC2" to 12
  159. end mouseUp
  160.  
  161.  
  162.  
  163. -- part 42 (button)
  164. -- low flags: 00
  165. -- high flags: 8002
  166. -- rect: left=265 top=260 right=277 bottom=282
  167. -- title width / last selected line: 0
  168. -- icon id / first selected line: 0 / 0
  169. -- text alignment: 1
  170. -- font id: 0
  171. -- text size: 12
  172. -- style flags: 0
  173. -- line height: 16
  174. -- part name: 1
  175. ----- HyperTalk script -----
  176. on mouseUp
  177.   beep
  178.   set textAlign of field "RC1" to center
  179.   set textFont of field "RC1" to Geneva
  180.   set textSize of field "RC1" to 9
  181. end mouseUp
  182.  
  183.  
  184.  
  185. -- part 43 (button)
  186. -- low flags: 00
  187. -- high flags: 8002
  188. -- rect: left=292 top=260 right=277 bottom=308
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 0 / 0
  191. -- text alignment: 1
  192. -- font id: 0
  193. -- text size: 12
  194. -- style flags: 0
  195. -- line height: 16
  196. -- part name: 2
  197. ----- HyperTalk script -----
  198. on mouseUp
  199.   beep
  200.   set textAlign of field "RC2" to center
  201.   set textFont of field "RC2" to Geneva
  202.   set textSize of field "RC2" to 9
  203. end mouseUp
  204.  
  205.  
  206.  
  207. -- part 44 (button)
  208. -- low flags: 00
  209. -- high flags: 8002
  210. -- rect: left=370 top=260 right=277 bottom=387
  211. -- title width / last selected line: 0
  212. -- icon id / first selected line: 0 / 0
  213. -- text alignment: 1
  214. -- font id: 0
  215. -- text size: 12
  216. -- style flags: 0
  217. -- line height: 16
  218. -- part name: 1
  219. ----- HyperTalk script -----
  220. on mouseUp
  221.   beep
  222.   set textAlign of field "RC1" to center
  223.   set textFont of field "RC1" to Geneva
  224.   set textSize of field "RC1" to 12
  225. end mouseUp
  226.  
  227.  
  228.  
  229. -- part 45 (button)
  230. -- low flags: 00
  231. -- high flags: 8002
  232. -- rect: left=398 top=260 right=277 bottom=414
  233. -- title width / last selected line: 0
  234. -- icon id / first selected line: 0 / 0
  235. -- text alignment: 1
  236. -- font id: 0
  237. -- text size: 12
  238. -- style flags: 0
  239. -- line height: 16
  240. -- part name: 2
  241. ----- HyperTalk script -----
  242. on mouseUp
  243.   beep
  244.   set textAlign of field "RC2" to center
  245.   set textFont of field "RC2" to Geneva
  246.   set textSize of field "RC2" to 12
  247. end mouseUp
  248.  
  249.  
  250.  
  251. -- part 48 (button)
  252. -- low flags: 00
  253. -- high flags: 0000
  254. -- rect: left=14 top=279 right=300 bottom=48
  255. -- title width / last selected line: 0
  256. -- icon id / first selected line: 21700 / 21700
  257. -- text alignment: 1
  258. -- font id: 0
  259. -- text size: 12
  260. -- style flags: 0
  261. -- line height: 16
  262. -- part name: Home
  263. ----- HyperTalk script -----
  264. on mouseUp
  265.   visual effect iris open
  266.   go Home
  267. end mouseUp
  268.  
  269.  
  270.  
  271. -- part 49 (button)
  272. -- low flags: 00
  273. -- high flags: 8001
  274. -- rect: left=460 top=22 right=62 bottom=503
  275. -- title width / last selected line: 0
  276. -- icon id / first selected line: 1007 / 1007
  277. -- text alignment: 1
  278. -- font id: 0
  279. -- text size: 12
  280. -- style flags: 0
  281. -- line height: 16
  282. -- part name: 
  283. ----- HyperTalk script -----
  284. on mouseUp
  285.   beep
  286.   put the userLevel into saveLevel
  287.   set the userLevel to 5
  288.   if the userLevel < 5 then exit mouseUp
  289.   if the freeSize of this stack > 0 then domenu "compact stack"
  290.   put field id 13 into temp1
  291.   put field id 14 into temp2
  292.   choose select tool
  293.   drag from 7,57 to 203,101
  294.   domenu clear picture
  295.   choose text tool
  296.   click at 105,85
  297.   set textfont to geneva
  298.   set textsize to 12
  299.   set textalign to center
  300.   type temp1
  301.   choose select tool
  302.   drag from 7,57 to 203,101
  303.   domenu flip vertical
  304.   domenu flip horizontal
  305.   choose text tool
  306.   click at 105,100
  307.   set textfont to geneva
  308.   set textsize to 9
  309.   set textstyle to plain
  310.   set textalign to center
  311.   type temp1
  312.   choose select tool
  313.   drag from 228,57 to 422,101
  314.   domenu clear picture
  315.   choose text tool
  316.   click at 325,85
  317.   set textfont to geneva
  318.   set textsize to 12
  319.   set textalign to center
  320.   type temp2
  321.   choose select tool
  322.   drag from 228,57 to 422,101
  323.   domenu flip vertical
  324.   domenu flip horizontal
  325.   choose text tool
  326.   click at 325,100
  327.   set textfont to geneva
  328.   set textsize to 9
  329.   set textstyle to plain
  330.   set textalign to center
  331.   type temp2
  332.   choose browse tool
  333.   wait for 2 seconds
  334.   domenu print card
  335.   answer " Do You Another Copy?" with "Yes" or "No" or "Cancel"
  336.   if it is "Yes" then domenu print card
  337.   set the userLevel to saveLevel
  338. end mouseUp
  339.  
  340.  
  341.  
  342. -- part 50 (button)
  343. -- low flags: 00
  344. -- high flags: 0000
  345. -- rect: left=8 top=302 right=337 bottom=53
  346. -- title width / last selected line: 0
  347. -- icon id / first selected line: 0 / 0
  348. -- text alignment: 1
  349. -- font id: 0
  350. -- text size: 12
  351. -- style flags: 0
  352. -- line height: 16
  353. -- part name: Erase Card
  354. ----- HyperTalk script -----
  355. on mouseUp
  356.   beep
  357.   put the userLevel into saveLevel
  358.   set the userLevel to 5
  359.   if the userLevel < 5 then exit mouseUp
  360.  
  361.   if the freeSize of this stack > 0 then domenu "compact stack"
  362.   choose select tool
  363.   drag from 7,57 to 203,101
  364.   domenu clear picture
  365.   choose select tool
  366.   drag from 228,57 to 422,101
  367.   domenu clear picture
  368.   put "" into field 1
  369.   put "" into field 2
  370.   put "" into field 3
  371.   put "" into field 4
  372.   set the cursor to 1
  373.   tabkey
  374.   set the userLevel to saveLevel
  375. end mouseUp
  376.  
  377.  
  378.  
  379. -- part 52 (button)
  380. -- low flags: 00
  381. -- high flags: 0000
  382. -- rect: left=450 top=117 right=164 bottom=493
  383. -- title width / last selected line: 0
  384. -- icon id / first selected line: 1004 / 1004
  385. -- text alignment: 1
  386. -- font id: 0
  387. -- text size: 12
  388. -- style flags: 0
  389. -- line height: 16
  390. -- part name: New Button
  391. ----- HyperTalk script -----
  392. on mouseUp
  393.   push card
  394.   Visual effect dissolve to white
  395.   go to card id 10208
  396. end mouseUp
  397.  
  398.  
  399.  
  400. -- part 54 (button)
  401. -- low flags: 00
  402. -- high flags: 0000
  403. -- rect: left=445 top=64 right=110 bottom=496
  404. -- title width / last selected line: 0
  405. -- icon id / first selected line: 0 / 0
  406. -- text alignment: 1
  407. -- font id: 0
  408. -- text size: 12
  409. -- style flags: 0
  410. -- line height: 16
  411. -- part name: New Button
  412. ----- HyperTalk script -----
  413. on mouseUp
  414.  
  415.   domenu "Back"
  416. end mouseUp
  417.  
  418.